home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / mac / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / DirectPlay / SimpleClient / modDplayClient.bas < prev    next >
BASIC Source File  |  2001-10-08  |  1KB  |  40 lines
  1. Attribute VB_Name = "modDplayClient"
  2. Option Explicit
  3. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  4. '
  5. '  Copyright (C) 1999-2001 Microsoft Corporation.  All Rights Reserved.
  6. '
  7. '  File:       modDPlayClient.bas
  8. '
  9. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  10.  
  11. Public Const AppGuid = "{5726CF1F-702B-4008-98BC-BF9C95F9E288}"
  12.  
  13. Public dx As New DirectX8
  14. Public dpc As DirectPlay8Client
  15.  
  16. Public DPlayEventsForm As DPlayConnect
  17.  
  18. Public Sub Main()
  19.     InitDPlay
  20.     frmClient.Show
  21. End Sub
  22.  
  23. Public Sub InitDPlay()
  24.     Set dpc = dx.DirectPlayClientCreate
  25. End Sub
  26.  
  27. Public Sub Cleanup()
  28.  
  29.     'Stop our message handler
  30.     If Not dpc Is Nothing Then dpc.UnRegisterMessageHandler
  31.     'Close down our session
  32.     If Not dpc Is Nothing Then dpc.Close
  33.     Set dpc = Nothing
  34.     Set dx = Nothing
  35.     'Get rid of our message pump
  36.     DPlayEventsForm.GoUnload
  37.     
  38. End Sub
  39.  
  40.